Know Your Hockey - The Greatest Player Resource/Know Your Hockey: The Greatest Player Resource.iso/hockey/director/ssqcst.cst/00024_Script_Screen Prompts

Text File | 1998-09-28 | 822b | 27 lines

global gPrompts

-- this script reads the appropriate screen prompts in from the text member "ScreenPrompts"
-- gPrompts is used in the rollover script to set the prompt window
on initPrompts
  set the ItemDelimiter to ","
  set gPrompts = []
  repeat with x = 1 to 48
    set theprompt = item 2 of line x of field "ScreenPrompts"
    append(gPrompts, thePrompt)
  end repeat
  put "Select an item" into field "promptwindow"
  set the forecolor of  member "promptwindow" = 0
end

on setprompt a
  if a < 1 or a = 38 then
    put "Select an item" into field "promptwindow"
    exit
  end if
  set test = the forecolor of member "promptwindow"
  if test <> 0 then  set the forecolor of  member "promptwindow" = 0
  set myprompt = (getat(gPrompts,a) )
  put myprompt into field "promptwindow"
end